home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
techjock.arc
/
MOUSEDEM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-11-18
|
1KB
|
41 lines
Program Mouse_Test;
uses Crt, FastTTT, DOS, KeyTTT;
var
B: button;
H,V: integer;
Ch : char;
begin
Clrscr;
If not Moused then
PlainWrite(1,1,'This demo only functions on PC''s equipped with a mouse')
else
begin
Move_Mouse(5,5);
WriteCenter(1,white,black,'Press the left mouse button to change cursor');
Show_Mouse_Cursor;
Repeat
Get_Mouse_Action(B,H,V);
Until B = LeftB;
Set_Mouse_Cursor_Style(4); {chr(4) is a diamond}
Hide_Mouse_Cursor;
ClearLine(1,white,black);
Box(20,5,60,15,white,black,4);
WriteCenter(1,white,black,'The mouse is now confined in the Box');
WriteCenter(2,white,black,'Move the mouse around, press Right Button when finished');
Confine_Mouse_Horiz(21,59);
Confine_Mouse_Vert(6,14);
Show_Mouse_Cursor;
Repeat
Get_Mouse_Action(B,H,V);
Until B = RightB;
Clrscr;
WriteCenter(1,white,black,'You''ve passed the basic test!');
Hide_Mouse_Cursor;
end;
WriteAT(1,24,white,black,'Run DemoTTT.exe for the main demo program');
WriteAT(1,25,white,black,'Technojocks Turbo Toolkit v4.0');
Ch := Readkey;
end.